home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Assassins - Ultimate CD Games Collection 2
/
Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso
/
disks
/
home1.dms
/
home1.adf
/
addressm2.0
/
InstallAM
< prev
next >
Wrap
Text File
|
1980-01-02
|
3KB
|
143 lines
;
; $VER: Install-AddressManager 2.0 (13.06.94)
;
; Install script for AddressManager2.0
; © Copyright 1993-1994 by Michael Schikora
; All Rights Reserved
;
(set intro
(cat "\n Installation of AddressManager v2.0\n\n"
" ©1993 by Michael Schikora \n"
" All Rights Reserved\n\n"
))
(set bad-kick
(cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
))
(set copying-AM
(cat "Copying the AddressManager program ..."
))
(set copying-catalogs
(cat "Copying the catalog files for AddressManager ..."
))
(set which-languages
(cat "\nWhich languages should be installed ?"
))
(set which-languages-help
(cat "The Amiga, and AddressManager, normally use the "
"english language. As you have Workbench(tm) 2.1 or better, "
"you can make the Amiga use other languages.\n"
"If you want AddressManager to use the same languages as the Workbench "
"then a catalog file must be copied to your system disk for each "
"language supported.\n"
"Simply check the boxes of the languages you wish to have available "
"on your system.\n\n\n\n\n"
@askoptions-help
))
(set copying-help
(cat "Copying Docs for AddressManager ..."
))
(set install-help
(cat "\n\n\n\n\n\nDo you want to install the docs ?"
))
(set install-help-help
(cat "The documentation may be usefull if you work with AddressManager.\n"
))
(set choose (cat "Select a directory\n"))
; Kickstart version test
(if (< (/ (getversion) 65536) 37)
(
(abort bad-kick)
))
(welcome intro)
(set @default-dest "SYS:")
(set destination (cat (askdir(prompt choose)(help copyingAM)(default "sys:")(newpath)(disk))))
(copyfiles
(prompt copying-DOSPrefs)
(help @copylib-help)
(source "AddressManager")
(dest destination)
(infos)
(optional force askuser)
)
; install catalogs
(set languages
(askoptions
(prompt which-languages)
(help which-languages-help)
(choices
"english"
"deutsch"
)
)
)
(if (exists "Locale:catalogs")
(
(set n 1)
(while (set language (select n
"english"
"deutsch"
""
))
(
(if (IN languages n)
(
(copyfiles
(prompt copying-catalogs)
(help @copylib-help)
(source (cat "catalogs/" language "/AddressManager.catalog"))
(dest (cat "Locale:catalogs/" language))
(optional force askuser)
)
))
(set n (+ n 1))
))
)
(
(set languages 0)
))
(if(askbool
(prompt install-help)
(help install-help-help)
(default 1)
)
(
(set n 0)
(while (set language (select n
"english"
"deutsch"
""
))
(
(if (IN languages n)
(
(copyfiles
(prompt copying-help)
(help @copylib-help)
(source (cat "docs/" language) )
(all)(infos)
(dest destination)
(optional force askuser)
)
))
(set n (+ n 1))
))
))